home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1997 / HAM Radio 1997.iso / vcls / dtool20 / demomain.pas < prev    next >
Pascal/Delphi Source File  |  1996-04-08  |  3KB  |  112 lines
  1. unit Demomain;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, Buttons, StdCtrls, Custbtn, Balloon, WinCRT, Dtmisc,
  8.   VisApp;
  9.  
  10. type
  11.   TFrontPanel = class(TForm)
  12.     BWCCBtn: TShadowButton;
  13.     ODBtn: TShadowButton;
  14.     MiscBtn: TShadowButton;
  15.     ClockBtn: TShadowButton;
  16.     LEDBtn: TShadowButton;
  17.     CustomHint: TCustomHint;
  18.     BalloonHint: TBalloonHint;
  19.     VisualApp1: TVisualApp;
  20.     BackgroundBtn: TShadowButton;
  21.     procedure MiscBtnClick(Sender: TObject);
  22.     procedure BWCCBtnClick(Sender: TObject);
  23.     procedure LEDBtnClick(Sender: TObject);
  24.     procedure ClockBtnClick(Sender: TObject);
  25.     procedure ODBtnClick(Sender: TObject);
  26.     procedure FormCreate(Sender: TObject);
  27.     procedure VisualApp1Message(var Msg: TMsg; var Handled: Boolean);
  28.     procedure BackgroundBtnClick(Sender: TObject);
  29.   private
  30.     { Private declarations }
  31.   public
  32.     { Public declarations }
  33.     procedure LoadGrossBitmaps;
  34.     procedure UnloadGrossBitmaps;
  35.   end;
  36.  
  37. var
  38.   FrontPanel: TFrontPanel;
  39.  
  40. implementation
  41.  
  42. {$R *.DFM}
  43. {$R DTDEMO.RES}
  44.  
  45. uses
  46.   DemoBWCC, DemoLED, DemoClok, DemoMisc, DemoDraw, DemoBack;
  47.  
  48. procedure TFrontPanel.UnloadGrossBitmaps;
  49. begin
  50.   BWCCBtn.Bitmap.Handle := 0;
  51.   ODBtn.Bitmap.Handle := 0;
  52.   MiscBtn.Bitmap.Handle := 0;
  53.   ClockBtn.Bitmap.Handle := 0;
  54.   LEDBtn.Bitmap.Handle := 0;
  55.   BackgroundBtn.Bitmap.Handle := 0;
  56. end;
  57.  
  58. procedure TFrontPanel.LoadGrossBitmaps;
  59. begin
  60.   BWCCBtn.Bitmap.Handle := LoadBitmap(HInstance, 'BWCC');
  61.   ODBtn.Bitmap.Handle := LoadBitmap(HInstance, 'OWNERDRAW');
  62.   MiscBtn.Bitmap.Handle := LoadBitmap(HInstance, 'MISC');
  63.   ClockBtn.Bitmap.Handle := LoadBitmap(HInstance, 'CLOCK');
  64.   LEDBtn.Bitmap.Handle := LoadBitmap(HInstance, 'LED');
  65.   BackgroundBtn.Bitmap.Handle := LoadBitmap(HInstance, 'BACKGROUND');
  66. end;
  67.  
  68. procedure TFrontPanel.MiscBtnClick(Sender: TObject);
  69. begin
  70.   MiscGadgets.ShowModal;
  71. end;
  72.  
  73. procedure TFrontPanel.BWCCBtnClick(Sender: TObject);
  74. begin
  75.   BWCCControls.ShowModal;
  76. end;
  77.  
  78. procedure TFrontPanel.LEDBtnClick(Sender: TObject);
  79. begin
  80.   LEDControls.ShowModal;
  81. end;
  82.  
  83. procedure TFrontPanel.ClockBtnClick(Sender: TObject);
  84. begin
  85.   Clocks.ShowModal;
  86. end;
  87.  
  88. procedure TFrontPanel.ODBtnClick(Sender: TObject);
  89. begin
  90.   OwnerDrawControls.ShowModal;
  91. end;
  92.  
  93. procedure TFrontPanel.FormCreate(Sender: TObject);
  94. begin
  95.   BalloonHint.Active := True;
  96. end;
  97.  
  98. procedure TFrontPanel.VisualApp1Message(var Msg: TMsg;
  99.   var Handled: Boolean);
  100. begin
  101.   with Msg do
  102.     if (message = WM_KEYDOWN) and (wParam = VK_F1) then
  103.       Application.HelpContext(0);
  104. end;
  105.  
  106. procedure TFrontPanel.BackgroundBtnClick(Sender: TObject);
  107. begin
  108.   BackgroundControls.ShowModal;
  109. end;
  110.  
  111. end.
  112.